(require :rtmeus (format nil "~A/eus/common/rtmeus.l" (unix:getenv 'RTMEUSDIR)))
;;
(setq *rtm* (instance RTMeus :init "localhost"))
(setq hoge (send *rtm* :resolve-component "UsbCameraAcquire0.rtc"))
(setq flip (send *rtm* :resolve-component "Flip0.rtc"))
(setq fuga (send *rtm* :resolve-component "UsbCameraMonitor0.rtc"))
(send *rtm* :connect-components hoge "imageout" flip "originalImage")
(send *rtm* :connect-components flip "flippedImage" fuga "ImageData")
(send *rtm* :all-activate)